home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / Network / miami.mod next >
Encoding:
Text File  |  2000-01-26  |  719 b   |  51 lines
  1. /* $VER: HTMLEXT Modul: miami.mod V 0.1.9 by Juan Manuel Wehrli 1999
  2.  */
  3.  
  4. PARSE ARG Befehl interface
  5.  
  6. if ~show("L",rexxtricks.library) then do
  7.     call addlib("rexxtricks.library",0,-30,0)
  8. end
  9. NL = '0a'x
  10.  
  11. OPTIONS RESULTS
  12. ADDRESS COMMAND
  13.  
  14. if EXISTS('miami:miami') then do
  15.     miamiprg = "run <>NIL: miami:miami"
  16. end
  17.  
  18. if ~show('P','MIAMI.1') then do
  19.     miamiprg
  20.     "SYS:REXXC/WAITFORPORT MIAMI.1"
  21. end
  22.  
  23.  
  24. if Befehl = ISONLINE then do
  25.     ADDRESS MIAMI.1
  26.     ISONLINE
  27.     CALL SETENV(".htmlext.tmp",RC)
  28. end
  29.  
  30. if Befehl = ONLINE then do
  31.     ADDRESS MIAMI.1
  32.     ONLINE
  33.     do while mol = 0
  34.         Delay(10)
  35.         ISONLINE
  36.         mol = RC
  37.     end
  38. end
  39.  
  40. if Befehl = OFFLINE then do
  41.     ADDRESS MIAMI.1
  42.     OFFLINE
  43.     do while yol = 1
  44.         ISONLINE
  45.         yol = RC
  46.         Delay(10)
  47.     end
  48. end
  49. exit
  50.  
  51.